﻿Module StringTools
    Public Function StripFileFromUrl(URL As String) As String
        Dim A() As String = URL.Split("/")
        Return URL.Replace(A(A.Count - 1), "")
    End Function
End Module
